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; Getting Started 





[ | Connect an RS-232 terminal to the cable coming from J1 of the CPU support card. The 
| terminal should be set for full duplex at one of the following rates: 19200, 9600, 1200, 300, 150, or 
110 baud. The software-selected baud rate feature of the CPU Support card is used to 
automatically determine the baud rate of the terminal. By hitting the carriage return no more than 
i | four times, the sign-on message should appear. If it does not, reset the computer and try again. If 
it still does not sign on, check all connections carefully. 
If Sense Switch 0 is a one (position 1 of $2 is closed), then the monitor will NOT sign on 
| after baud rate selection but instead will automatically boot the disk. This is equivalent to the Boot 
Ul command with no parameters. 
. Directly below the sign-on message there will be a greater-than symbol, ">". This is the 
i Monitor prompt, and indicates that the Monitor is ready to accept a command. The input buffer 
allows commands of up to 80 characters in Jength. While typing the command line, <backspace> 
and <rubout> or <delete> may be used back up to correct a mistake, while "@" cancels the line and 
a re-issues the prompt. Typing <carriage return> either causes the command to be executed or an 
error to be reported. Most errors are syntax errors, and an arrow followed by the word "Error" 
will appear under the first bad character. If an error occurs, no part of the command is executed 
(except during boot or flag replacement - see Boot and Register commands). 
|| Monitor commands are available to display, alter and search memory; to do inputs and 
A outputs; to boot the disk; and to aid in debugging 8086 programs. The debugging commands allow 
the user to execute a program in a controlled manner, observing its behavior. This controlled 
execution may be done either by single-stepping or through execution with breakpoints. 
Single-stepping is done with the Monitor's Trace command. By using 8086 hardware trace 
mode, a single instruction can be executed, and the resulting effects on the registers or memory 
ii displayed. Even ROM may be traced, and every instruction is traced correctly (unlike 8080 or Z80 
. debuggers). 
Execution with breakpoints (Go command) allows the user to quickly execute previously 
tested program portions but stops program execution if a breakpoint is reached. Breakpoints 
| require more care than single-stepping since they can only be used in RAM at the address of the 
first byte of an 8086 opcode. 

Both methods of "controlled execution" allow the user to modify or examine CPU registers. 
| A “register save area" is maintained in memory: just before execution, all registers are set with 
i values from this area; and when control is returned to the monitor, all registers are saved back in 
this area. The Register command allows this area to be displayed or modified. 
eg Execution of any command may be aborted by typing Control-C. Typing Control-S during 
| output will cause the display to pause so it may be read before scrolling away; any key (except 
, Control-C) may be typed to continue. 

If a user program is executing as a result of a Boot or Go command and interrupts are 
enabled, then the console may interrupt the program and return control to the Monitor. Typing any 
key will cause the interrupt, save program status, and print a register dump; except that Control-C 
will inhibit the register dump. Note that complete program status is always saved, and execution 
| | may be continued with a Go or Trace command. 
| The Monitor requires .55K of memory at address zero. Specifically, interrupt vectors are kept 
at locations 4-7, OCH-OFH, and 64H-67H, while scratch pad ram, input buffer, and stack use less 
7 than 256 bytes beginning at 100H. User programs must not modify these locations if the Monitor is 
| to be used for debugging. 
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Parameters 


All commands of the Monitor accept one .or more parameters on the line following the 
command letter. These parameters MAY be separated from each other and the command letter by 
spaces or commas, but one these delimiters is REQUIRED only to separate consecutive hex values. 
Most parameters are one of the following types: 


<BYTE>, <HEX4>, <ADDRESS> - A hexadecimal number with no more than 2, 4, or 5 digits, 
respectively. Thus, <BYTE> becomes an 8~bit value, <HEX4> a 16-bit value, and <ADDRESS> a 
20-bit value. If too many digits are entered or a non-hex character is typed, the error arrow will 
point to the mistake. Hex A-F must be in upper case. 


<RANGE> - A <RANGE> is either <ADDRESS> <ADDRESS> or <ADDRESS> L <HEX4>. The 
first form specifies the first and last addresses affected by the command. The second form specifies 
a starting address and a length. For either form, the maximum length (first address - last address + 
1) cannot exceed 10000H, and this limit may be as low as OFFF1H due to limitations of working 
within a segment. (Specifically, [starting address modulo 16] + length must be <= 10000H.) An "RG 
Error" results if the length is too large. To specifiy a length of 10000H with only four digits, use a 
length of zero. Note that the “L" in this form must be upper case. 


<LIST> - This is always the last parameter on a line and may extend to the end of the input 
buffer. tt is actually a series of one or more parameters, each of which is either a <BYTE> or a 
<STRING>. 

A <STRING> is any number of characters (except control characters) enclosed by either 
single (') or double (") quotes. Since the opening and closing quotes must be the same, the other 
type may appear in the string freely. If the same quote as opened the string needs to appear within 
it, it must be given as two adjacent quotes. The ASCII values of the characters in the string are 
used as a list of bytes. 


Commands 


A command is executed by typing the first letter of its name (upper case only) followed by 
any parameters. If the first letter on the line is not recognized as a command, the error arrow will 


point to it. Commands are listed below in alphabetical order, with the forms of all parameters 
shown. 


B 
B <ADDRESS> . . « <ADDRESS> 

Boot - Loads the first sector of track 0 of the disk into memory starting at 200H. Up to ten 
5-digit addresses may be specified; too many will cause a "BP Error". After the sector is loaded, 
breakpoints will be set at these locations. Then all registers will be set from the register save area, 
except that the Code Segment will be set to zero, and the Instruction Pointer will be set to 200H - 
thus a jump will be made to 200H. The user stack pointer MUST be valid for this command to work. 
See Go command for more information. 


This command works in three steps. First, the disk sector is loaded. Next, the Code Segment 
and Instruction Pointer are set in the register save area. Finally, a Go command is executed, The 
result is that an error in a breakpoint address will not be found until AFTER the sector is loaded 
and the register save area changed. Thus it is not necessary to use another Boot command to 
correct the error; aGo command with the corrected breakpoints will do. 
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The example below shows how Boot can help test an experimental 8086 program. The 
program to be tested fits into one 128-byte sector and has been placed on track 0, sector 1 of a 
disk. The program is loaded with the Boot command but execution does not begin because a 
breakpoint is set at 200H, the first byte of loaded program. Before testing, the program is moved 
to 400H, just above the interrupt table, and CS and IP are adjusted. 


SCF 8086 Monitor 1.4 
SBR2O00 


AX#000Q0 BX=0000 CX#0000 ItX=0000  SFOCO0 BFP#Q000 ST=0000 T0000 
0820040 FS=0040 S$S0040 CS5=0000 TFeO0200 NV UP ET PLONZ NA FO NG 

* M 200 180 400 

eRCS 

CS 0000 

$40 

oROTF 

tr O200 

iQ 

oR 

AX#QO000 BX#0000 CxX=0000 UX#0Q000 SFeOC0Q BF#O000 ST0000 Nl#0000 
NS#0040 ES#0040 SS=0040 CS0040  TP#Q000 NV UP ET PLONZ NA FO NC 


D <ADDRESS> 
D <RANGE> 

Dump ~ Displays memory contents in hex and ASCII. If only a starting address is specified, 
80H bytes are dumped; otherwise the specified range is displayed. To help pinpoint addresses, each 
line (except possibly the first) begins on a 16-byte boundary, and each 8-byte boundary is marked 
with a "=". Non-printing characters are shown as a "." in the ASCII dump. 


SM4AOO Lag 

00400 FF FR FF FF OF? 7F OFF OFF@FR FE ZF OFF | be ote eWeeeeVeveeee 
OO410 TO FR TF FF OCF FF FE QF=FF OFF 2F FR FE ee Oe Mae e oT ow 
00420 BF FF RF FF BF BF 4F FR & FEF Pe PPPs 


a 
Re 


HN44S 4463 

00445. FE DF 7P=F9 FR 7E FE PE PR FP CRP samotde Ve Veees 
00450 FF OFF FE FFE FF OFF FF TRF eFF OI? FREOPRO ORF FR PR FP se ere emoWa cece 
00460 9F FF FA FF eee 


"DBO 

00080 FF OOF FF FF OOF FF FF FF-F§ FF OFF I 

00090 CE FF FF FR FF FR FF FF*7F FF FE FA FIL FA FF FE NeetsCoeee “ate 
00000 FF FF FF FF FF FF FE FF-FF FF PF OFF OFF PF ODP DF cece eee eee ee tamm 
OOOKO FF FF FR RE FF OFF SF EF-FF OFF FA FF OFF ODE E7 FID 4 ete euQeedte eat 
000CO FF FF FF FF FF FF FF FF*7F FF OFF FF FF EG FF OFF eeeceeeeeeeee tos 
OOOK0 FF OOF FF FF FF 0G FR 7F<FE FF OFF FF FF DB ED PF eee o\Ce Meee ekites 
OOOEO FF FF FF FF FR FF FF FF-FF OFF OFF FE FF OFF SF FF cese€ees cere erme 
OOOFO DF EZ FF OME FF OFF PF RYeBF OBE OFS PROF PE OE Ee ee PP YC eum 


PU PP Po PP OZR tt dont eohiea belle ¢ 
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E <ADDRESS> <LIST> 
E <ADDRESS> 

Enter - In the first form, the list of bytes is entered at the specified address, with the 
command being executed and completed upon hitting <carriage. return>. If an error occurs, NO 
locations are changed. 

The second form puts the Monitor into "Enter Mode", starting at the specified address. After 
hitting <carriage return>, the address and its current contents will be displayed. The user now has 
several options: 

1) Replace the displayed value with a new value. Simply type in the new value in hex, using 
<backspace> or <delete> to correct mistakes. If an illegal hex digit is typed or more than two 
digits are typed, the bell will sound and the character will not be echoed. After entering the new 
value, type either <space>, "-", or <carriage return>, as defined below. 

2) Type <space> to display and possibly replace the next memory location. Every 8-byte 
boundary will start a new line with the current address. 

3) Type “-" to backup to the preceding memory location. This-will always start a new line 
with the address. The "-" will not be echoed. 

4) Type <carriage return> to terminate the command. 


PESOO 24 e999A “Teast? 90 
et SOO Lio 
OOOO 24 09 OA 34 65 73 74 00-00 20 00 00 00 40 O1 00 Bee Tetitber eo oldes 


SEMOB 

OOGO8 OO-¢ 

OOGO7 OO. 

OOMOG 74s 00.49 

OOSOB8 OO.4E 20.47 00.0 00.0 0049 4049 O10 OO-+ 

OOG1O 60. Ol 01476 O00, 

STOO G13 

OO800 24 O09 OA S4 65 73 74 49~4E 47 00 00 00 00 00 00 $e eTASELING oe reee 
OOG1O 460 O1 76 00 eve 


F <RANGE> <LIST> 

Fill - The specified range is filled with the values in the list. If the list is larger than the range, 
not all values will be used; if the range is larger, the list will be repeated as many times as necessary 
to fill it. All memory in <RANGE> must be valid for this command to work properly. If bad or 
non-existent memory is encountered, the error will be propagated into all succeeding locations. 


oF 400 L228 "Hele" AD 

ON4OO Lao 

00400 48 469 6C 70 OA OFF 48 65-40 70 OA OD 48 65 40 70 Hale. +Hedes Hele 
00410 OA OD 48 65 60 70 OA Ol 48 69 60 70 OA ON 48 65 eeHeles Hele. He 
00420 46C 70 OA ON 48 65 60 7O-FF ZF FR PR FE OFF OF? FF Lee eH@Elees eee eWe 


G 
G <ADDRESS> . . « <ADDRESS> 

Go - Sets all registers from the register save area. Since this includes the Code Segment and 
Instruction Pointer, this implies a jump to the program under test. 

This command allows setting up ten breakpoints. Attempting to set more than ten will cause 
a “BP Error’. Breakpoints may be set only at an address containing the first byte of an 8086 
opcode. A breakpoint is set by placing an interrupt opcode (OCCH) at the specified address. When 
that opcode is executed, all registers are saved and displayed, and all breakpoints locations are 
restored to their original value. if control is not returned to the Monitor by a breakpoint or 
interrupt, the breakpoints will not be cleared. 

The user stack pointer must be valid and have 6 bytes available for this command to work. 
| The jump to the user program is made with an IRET instruction with the user stack pointer set and 
user Flags, Code Segment register, and Instruction Pointer on the user stack. Thus if the user stack 
is not valid, the system will "crash". 

The program below is an infinite loop of 16 INC AX instructions followed by a jump to its 
start. First breakpoints are used to execute a few instructions. Then a Go without cbaastauie 
allows continuous, full-speed execution which is terminated by an interrupt from the keyboard - 

7 this case, typing the space bar. 








F400 LAO 40 
| E410 ER EE 
7 E400 LL 


00400 40 40 40 40 40 40 40 40-40 40 40 40 40 40 40 40 PRRALCREARREREER 
| oUane ER EE La 
os 5G410 


| AX#O0010 BX#Q000 CX=0000 [1X=0000) SP#OCOO RBF®O0000 SL#0000  TT#0000 
i) NS20040 ES#0040 $8#0040 CS#0040  TFe0010 NV UF ET FLONZ AC FO NC 
“G400 412 


AX#Q010 BX#0000 CX#0000) DX#0000) SF#OCOQ RBF#O0000 = ST#0000 = IT=0000 
NS#0040 ES#0040 $S#0040 CS920040  ITF®0000 NV UP EI PLONZ AC PO NC 
“G6 





i AX#4590 BX=0000 CX#0000) [K#0000) SF=OCOO  BF&O000 = SLT#0000  TT#0000 
NS#0040 ES#0040 8920040 CS#0040  IFP#0000 NV UP ET PLONZ AC PE NC 


| <HEX4> 
Input - Inputs a byte from the specified port and displays it. A 16-bit port address is allowed. . 


M <RANGE> <ADDRESS> 


Move ~- Moves the block of memory specified by <RANGE> to <ADDRESS>. Overlapping 
moves are always performed without loss of data, i.e., data is moved before it is overwritten. To 
do this, all moves from higher addresses to lower ones are done front-to-back, while moves from 
lower addresses to higher ones are done back-to-front. 


“M400 LAO 420 
“M400 42F 

00400 34 45 33 
00410 FF FF FE 
00420 S4 45 S32 


“M404 40F 405 
“1400 L10 
00400 54 45 53 


“M405 410 404 


“T400L10 
00400 4 45 53 


O <HEX4> <BYTE> 


54 49 4E 47 FF-F7 FF FF FS 
FF FF FF FF FF-FE FF FF FF FF FF 
54 49 46 47 FF-F7 FF FF F6 


34 49 49 4E 47-FF F7 FF FF 


FF FF 


EF ORF 


Fé FF 


54 49 46 47 FE~F7 FF OFF F6 FF OFF 


FE FF TESTING swe eVee™s 
FF FF eee rear eeeenes 
FE FF TESTING swe eVee”s 


FF FE  TESTIINGswesvee” 


FE FF TESTING Ws eve a %s 


Output - <BYTE> is sent to the specified output port. A 16-bit port address is allowed. 


R 
R <REGISTER NAME> 


Register - with no parameters, this command dumps the register save area. 

Giving a register name as a parameter allows that register to be displayed and modified. The 
register name may be AX, BX, CX, DX, SP, BP, S!, Dl, DS, ES, SS, CS, IP, PC, or F (upper case only); 
anything else will result in an “BR Error". IP and PC both refer to the Instruction Pointer and F refers 
to the Flag register. For all exept the Flag register, the current 16-bit value will be printed in hex, 
then a colon will appear as a prompt for the replacement value. Typing <carriage return> leaves 
the register unchanged; otherwise type a <HEX4> to replace. 

The Flag register uses a system of two-letter mnemonics for each flag, as shown below: 


FLAG 
Overflow 
Direction 
Interrupt 

Sign 

Zero 

Auxillary Carry 
Parity 


Carry 


CLEAR 

NV_ No Overflow 

UP Up (Incrementing) 
DI Disabled Interrupts 
PL Plus 

NZ Not Zero 

NA No Auxillary Carry 
PO Parity Odd 


NC No Carry 


SET 
OV Overflow 
DN Down (Decrementing) 


El Enabled interrupts 


NG Negative 


ZR Zero 
AC Auxillary Carry 
PE Parity Even 


CY Carry 


Whenever the Flag register is displayed, all flags are displayed in this order. When the F 
| register is specified with the R command, the flags are displayed and then the Monitor waits for 
[| any replacements to be made. Any number of two-letter flag codes may be typed, and only those 

flags entered will be modified. If a flag has more than one code in the list, a "DF Error’ (Double 

ry Flag) will result. If any code is not recognized, a "BF Error” (Bad Flag) will occur. In either case, 
| | those flags up to the error have been changed, and those after the error have not. 

“a After reset, all registers are set to zero except the segment registers, which are set to 40H, 

and the Stack Pointer, which is set to OCOOH. Flags are all cleared except for interrupts. Execution 

| on a Trace or Go command would thus begin at 400H, which is the first location after the interrupt 

table. 


i | oR 

| AX=0000 EX=0000 CX=0000 NX=0000 SF=0COO BF=0000 SI=0000 = [IT=0000 
NS#0040 ES=0040 $S=0040 CS=0040 IF=0000 NV UP EI FLONZ AC FE NC 

rt eROAX , 

[| AX 0000 

a $106 

- “ROS 

(| CS 0040 


? 
e 


oR 

NV UF ET PLONZ AC PE NC ~ZR IN 

oR 

AX=0106 EX=0000 CX=0000 DX=0000 SF=O0COO BF=0000) SI=0000 = Ll=0000 
1S=0040 ES#0040 $S=0040 CS=0040 TF#0000 NV DN EI FL ZR AC PE NC 


| 
1 | 
H 
\ 
i 


S <RANGE> <LIST> 


Search - The range is searched for a byte or string of bytes specified by <LIST>. For each 
occurence the first address of the match is displayed. 





7 “S400 18000 ‘’Helr’ 
| 00400 
“= 00406 
. 0040C 
|| 00412 
| 00418 
OO41E 
|| 00424 
“T1400 L28 
00400 48 65 6C 70 OA OL 48 65-6C 70 OA OF 48 65 6C 70 Hele. Hele. Hele 
7 00410 OA OL 48 65 6C 70 OA O1-48 65 6C 70 OA OF 48 65 «Hele. -Hele..He 
| 00420 6C 70 OA OL 48 465 6C 70 le. Hele 


T 
T <HEX4> 


Trace - The number of instructions specified (default 1) are traced. After each. instruction, 


the complete contents of the registers and flags are displayed. (For the meaning: of the flag 


symbols, see Register command.) Since this command us 
even ROM may be traced. 


oR 
AX=0106 
LiS#0040 
ot 3 


AX#0107 
18#0040 
a oe 


AX#0108 
1iS=0040 
eT4 


AX=O109 
NS=0040 


AX#010A 
NS=#0040 


AX#O 108 
NS=0040 


AX#O10C 
NS0040 


BX=0000 
ES=0040 


BX=0000 
ES=0040 


EBX=0000 
EBx0040 


BX=0000 
ES=0040 


BX#0000 
ES#0040 


BX=0000 
ES=0040 


BX=0000 
ES#0040 


CX=0000 
$S=0040 


CX#0000 
$$=0040 


CX#0000 
$$=20040 


CX#0000 
§$S=0040 


CX#0000 
$$=0040 


CX#0000 
$S#0040 


CX#0000 
$$=0040 


DX=0000 
CS=0040 


iX=0000 
CS=0040 


DX=0000 
CS#0040 


NX=0000 
CS=0040 


NX#0000 
CS#0040 


11X0000 
CS=0040 


LX=0000 
CS20040 


SF=0COO0 
IF=0000 


SFP=0CO00 
IF=Q001 


SF=0C00 
IF#0002 


SF=O0COO0 
IF#0003 


SF=0COO 
TF=0004 


SF=OCOO 
IF=Q005 


BSF2QCOO 
TFQ006 
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es the hardware trace mode of the 8086, 


BF=0000 S$I#0000 = [IT=0000 
NV DN ET PL ZR AC PE NC 


BRF=Q000 SI=0000) NNT=0000 
NV IN EI FLONZ NA FO NC 


RP=0000 $T=0000 
NV DIN ET FL 


NI=0000 
NZ NA FO NC 


RP=0000 $I=0000 D11=0000 
NV IN EI FLONZ NA FE NC 


BF=0000 S$I=0000 
NV YIN ET: PL 


NL=0000 
NZ NA FE NC 


BF=0000 ST=0000  ItT=0000 
NV DN EL PLONZ NA PO NC 


RF=Q00Q SI=0000 
NV DN ET FL 


UL20000 
NZ NA FE NC 


| 
i 
a 











i 

| 
[| 
if 














0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
07F0 
07F0 
O7F5 
O7F5 
O7F5 
O7F5 
O7F5 


O7FF 
O7FF 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0102 
0104 
0118 
0169 
OL6A 
019¢ 
019¢ 
019¢ 
019¢ 
019¢ 
019E 
01A0 
O1A2 
01A4 
01A6 
01A8 
O1AA 
Q1AC 
O1AE 
01B0 
0180 
01B2 
0184 


EA 00 00 80 FF 


OD 00 68 00 AO O1 


40 03 78 04 


8086 Monitor Assembly Listing | 


3 Seattle Computer Products 8086 Monitor version 1.5 4/24/80 
H by Tim Paterson : 
3; This software is not copyrighted. 


3To select a disk boot, set one of the following equates 
sto 1, the rest to 0. 


CROMEMCO4FDC : 


NORTHSTARSD: 
TARBELL: 
OTHER: 


PUTBASE: EQU 
LOAD: EQU 
ORG 
PUT 
MP 


EQU 
EQU 
EQU 
EQU 


orOo- 


100H 

200H 

7FOH 
PUTBASE+7FOH 
0,0FF80H 


31 for 4FDC, 0 for others 
sNorth Star single density? 
sTarbell (single or double)? 
sUser-defined disk 


sPower-on jump to monitor 


;Baud Rate Table. The 9513 divides 2MHz by these values. 
sThey are for 9600, 1200, 300, 150, 110 baud 


BAUD: DW 


ORG 


;System Equates 


BASE: EQU 
STAT:  EQU 
DATA:  EQU 
DAV: EQU 
TBMT:  EQU 
BUFLEN: EQU 
BPMAX: EQU 


BPLEN: EQU 


REGTABLEN : EQU 


SEGDIF: EQU 
PROMPT: EQU 
CAN: EQU 


;RAM area. 


BRKCNT: DS 
TCOUNT: DS 
BPTAB: DS 
LINEBUF :DS 


ALIGN 


DS 
STACK: 


13, 104,416,832, 1144 


100H 


OFOH 
BASE+7 
BASE+6 
2 

1 

80 

10 
BPMAX+BPMAX 
14 
800H 
Mott 


tau 


2 

2 

BPLEN 
BUFLEN+1 


50 


sRegister save area 


AXSAVE: DS 
BXSAVE: DS 
CXSAVE: DS 
DXSAVE: DS 
SPSAVE: DS 
BPSAVE: DS 
SISAVE: DS 
DISAVE: DS 
DSSAVE: DS 
ESSAVE: DS 
RSTACK: 

SSSAVE: DS 
CSSAVE: DS 
IPSAVE: DS 


NONNYM NNN DH WD Ps 


DoD bY we 





3;RAM area base address 


3;CPU Support base po 
sUART status port 
3UART data port 
sUART data available bit 

s;UART transmitter ready bit 

;Maximum length of line input buffer 
;Maximum number of breakpoints 
sLength of breakpoint table 

sNumber of registers 

s;-OFF800H (ROM address) 





;Number of breakpoints 
sNumber of steps to trace 
;Breakpoint table 

sLine input buffer 


sWorking stack area 


Stack set here so registers can be saved by pushing 


01B6 
01B8 
01B8 
0188 
0138 
0000 
0000 
0000 
0000 
0000 
0001 
0003 
0005 
0007 
0009 
000C 
OOOF 
0010 
0011 
0016 
0018 
001A 
001D 
OOLE 
OOLF 
0024 
0027 
0027 
0029 
0028 
002D 
002F 
0032 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0037 
003A 
003A 
0033 
003¢ 
003E 
0040 
0040 
0041 
0042 
0043 
0045 
0045 
0046 
0049 
0048 
0048 
004B 
004B 
0048 
004B 
00438 
004E 


BO 
E6 
BO 
E6 
BB 
E7 


BE 
BA 


2E 
AC 
8A 
E3 
2E 
AC 
EE 
E2 
42 


75 


E8 


co 
DO 
D8 
co 
9c 01 
OE 00 


OE B7 01 02 
Ac 01 


06 A5 01 0C 
9c Ol 


84 05 


33 07 
FO 00 


C8 
05 


FB 


FA F8 
EF 


19 00 


FSAVE: DS 


2 


3Start of Monitor code 


ORG 
PUT 


0 ; 
PUTBASE 


3One~time initialization 


UP 
XOR 
MOV 
MOV 
MOV 
MOV 
MOV 
REP 
STOW 
OR 
MOV 
MOV 
MOV 
REP 
STOW 
MOV B 
MOV 
;Prepare 9513 
MOV 
OUT 
MOV 
OUT 
MOV 
OUTW 


AX, AX 
88,AX 
ps, AX 
ES ,AX 
DI, AXSAVE 
CX, 14 


B, [FSAVE+1] ,2 
CL, 4 

AL, 40H 
DI,DSSAVE 


[SPSAVE+1] , OCH 
SP, STACK 


AL, 17H 
BASE+5 
AL, OF 3H 
BASE+4 
AX, 584H 
BASE+4 


sMaster Mode now set to 84F3H: 
Scaler set to BCD division 

' Enable data pointer increment 

8=-bit data bus 


38et register images to zero 
sEnable interrupts 


3Set segment reg. images to 40H 
3Set user stack to 400H+0C00H 


sSelect Master Mode register 


sLow byte of Master Mode 
sOutput 84H to BASE+4 
sand 05H to BASE+5 


Both alarm comparators disabled 
Time~of-day enabled 


3 
; 
H 
3 FOUT=100Hz, dividing F5 by 4 (F5=4MHz/10000) 
5 
; 
; 


Counter 5 selected 


sInitialize loop. Ports BASE through BASE+7 are initialized 
3from table. Each table entry has number of bytes followed by 


sdata. 


MOV 
MOV 
INITPORT: 
SEG 
LODB 
MOV 
JCKZ 
INITBYTE: 
SEG 
LODB 
OUT 
LOOP 
NEXTPORT: 
INC 
CMP 
JINZ 


SI, INITTABLE 
DX, BASE 


cs 


CL, AL 
NEXTPORT 


cs 


DX 
INITBYTE 


DX 
DL, BASE+8 
INITPORT 


sInitialization table 

3DX has (variable) port no, 
3Get byte count 

sNo init. for some ports 
sGet init. data 

3Send to port 

3As many bytes as required 


3Prepare for next port 
sCheck against limit 


sInitialization complete except for determining baud rate. 
sBoth 8259As are ready to accept interrupts, the 9513 is 
sproviding 19.2k baud X 16 to the 8251A which is set for 
316X clock and one stop bit. 


CALL 


CHECKB 


3Check for correct baud rate 


;CHECKB does not return if baud rate is correct 
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004E 
004E sIntial baud rate (19.2k) was wrong, so run auto-baud routine 


























7 004E 
i 004E INITBAUD: . 
004E BE F5 07 MOV SI,BAUD 
0051 3Firet set up 9513 for slower baud rates (<=9600),. 
0051 s;Counter 5 mode register has already been selected. 
0051 B8 23 E8 MOV AX, 0E823H sOutput 23H to BASE+4 
0054 E7 F4 OUTW BASE+4 sand OE8H to BASE+5 
0056 323H to BASE+4 seta lower half of Counter 5 mode regiater,. 
0056 3sReload from Load, count down repetively in binary, 
0056 stoggle output. 
0056 ;0E8H to BASE+5 disables data pointer sequencing 
2, 0056 
[| 0056 BO OD MOV AL, ODH 
4 | 0058 E6 F5 OUT BASE+5 3Select Counter 5 load reg, 
005A INITB: 
OO5A 2E SEG cs 
005B AD LODW 3Get divisor 
005C E6 F4 OUT BASE+4 sOutput low byte 
0O5E 8A C4 MOV AL,AH 
2 0060 E6 F4 OUT BASE+4 ;Output high byte 
vl 0062 E8 02 00 CALL CHECKB sCheck if baud rate correct 
ti 0065 EB F3 JP INITB sTry next rate if not 
; 0067 CHECKB: 
0067 E8 98 00 CALL IN 3First byte could be messed up 
006A E8 95 00 CALL IN 3Get carriage return 
006D 3C OD CMP AL,13 sCorrect? 
006F 74 01 JZ MONITOR sDon’t return if correct 
0071 C3 RET ;Didn’t get it yet 
0072 
0072 sInitialization complete, including baud rate. 
0072 
0072 MONITOR: 
j 0072 3 Do auto boot if sense switch 0 is on. 
| 0072 BF 18 01 MOV DI, LINEBUF 
ite 0075 C6 05 OD MOV B, [DI] ,13 3No breakpoints after boot 
0078 E4 FF IN BASE+0FH 3Sense switch port 
(| 007A A8 Ol TEST AL,1 
7 007¢C 74 03 : JZ DOMON 
a OO7E E9 F5 06 JMP BOOT 
0081 DOMON: 
0081 BE 51 07 MOV SI ,HEADER 
0084 E8 8B 00 CALL PRINTMES 
0087 COMMAND : 
0087 sRe-establish initial conditions 
7 0087 FC UP 
7 0088 33 CO XOR AX, AX 
008A 8E D8 MOV DS, AX 
008C 8E CO MOV ES,AX 
a OO8E BC 9C 01 MOV SP, STACK 
| 0091 C7 06 64 00 BB 06 MOV (64H] , INT 3S5et UART interrupt vector 
il 0097 8C OE 66 00 MOV [66H] ,cS 
0098 BO 3E MOV AL, PROMPT 
009D E8 C8 00 CALL OUT 
OOAO E8 1E 00 CALL INBUF 3Get command line 
i 0043 3From now and throughout command line processing, DI points 
00A3 ;to next character in command line to be processed. 
a 00A3 E8 7F 00 CALL SCANB sScan off leading blanks 
| 00A6 74 DF JZ COMMAND 3Null command? 
Ly 00A8 8A 05 MOV AL, [DI] sAL=first non—blank character 
: OOAA ;Prepare command letter for table lookup 
_ OOAA 2C 42 SUB AL, "B" ;Low.end range check 
| OOAC 72 10 JC ERR1 
i OOAE 3¢ 13 CMP AL, "E"41="B" sUpper end range check 
= 00B0 73 0C INC ERRL 
O0B2 47 INC DI 
00B3 DO EO SHL AL 3;Times two 
00B5 98 CBW : ; ;Now a l6-bit quantity 
OOB6 93 XCHG BX, AX 3In BX we can address with it 


es be aes 





00B7 
00B8 
0OBC 
OOBE 
00c1 
00c1 
00c1 
00c1 
00c1 
00c4 
00C6 
00c6 
00c9 
OOCB 
00cD 
OOCF 
00D1 
00D4 
00D6 
00D8 
00D9 
OODA 
OODD 
OODF 
oOOoDF 
0O0E1 
0O0E2 
00E3 
O0E6 
QOE8 
OOE8 
OOEA 
OOEC 
OOEE 
OOFO 
OOF1 
OOF4 
OOF4 
OOF4 
OOF4 
OOF4 
OOF6 
OO0F9 
OOFB 
OOFD 
OOFD 
OOFD 
OOFD 
OOFD 
0100 
0102 
0102 
0102 
0102 
0102 
0103 
0105 
0107 
0109 
0108 
010D 
O10E 
O10F 
010F 
O10F 
O10F 
O10F 
0112 
0112 
0112 


2E 


EB 
E9 


BO 
E8 
BO 
EB 


E8 
EB 


BE 


29 
DE 


08 
F3 
OD 
D6 


18 


OD 
6F 
OA 
6B 


F4 


73 


7D 01 


02 


01 


00 


00 


50 


00 


01 


00 


FF 


07 


SEG 

CALL 

JP 
ERR13 JMP 


3Get input line 


INBUF: 
MOV 
XOR 
GETCH: 
CALL 
CMP 
Jc 
CMP 
JZ 
CALL 
CMP 
JZ 
STOB 
INC 
CMP 
JBE 
BACKSP: 
JCXZ 
DEC 
DEC 
CALL 
JP 
CONTROL: 
CMP 
JZ 
CMP 
JNZ 
STOB 
MOV 


cs 
[BX+COMTAB] 
COMMAND 
ERROR © 


DI, LINEBUF 
CX, CX 


IN 

AL, 20H 
CONTROL 
AL, 7FH 
BACKSP 
ouT 

AL, CAN 
KILL 


CX 
CX, BUFLEN 
GETCH 


GETCH 
DI 

CX 
BACKUP 
GETCH 


AL,8 

BACKSP 
AL, 13 
GETCH 


DI,LINEBUF 


sOutput CR/LF sequence 


CRLF 
MOV 
CALL 
MOV 
JP 


AL,13 
OUT 
AL, 10 
out 


3Cancel input line 


KILL: 
CALL 
JP 


CRLF 
COMMAND 


3Character input routine 


IN: 

DI 
INB 
TEST 
JZ 
INB 
AND 
EL 
RET 


STAT 
AL, DAV 
IN 
DATA 
AL, 7FH 


3;Execute command 
3Get next command 


3Next empty buffer location 
sCharacter count 


3Get input character 
sCheck for control characters 


sRUBOUT is a backspace 


3sEcho character 
3;Cancel line? 


sPut in input buffer 

;Bump character count 

sBuffer full? 

sDrop in to backspace if full 


3Can’t backspace over nothing 
;Drop pointer 

sand character count 

3Send physical backspace 

3Get next char. 


sCheck for backspace 
s;Check for carriage return 
sIgnore all other control char. 


3;Put the car. ret. in buffer 
3Set up DI for command processing 


3Poll, don’t interrupt 


sLoop until ready 


3Only 7 bits 
sinterrupts OK now 


;Physical backspace - blank, backspace, blank 


BACKUP: 
MOV 


SI,BACMES 


sPrint ASCII message. Last char has bit 7 set 


Sf he 


8 


| 
t 
4 
A 
a 


speciale oe 


6 
f 


/ 
| 
| 


























0112 
0112 
0113 
0114 
0117 
0119 
0118 
o011lc 
O11Cc 
oOllc 
Olle 
011lc 
O1LF 
0122 
0124 
0125 
0125 
0125 
0125 
0125 
0127 
0128 
012A 
0128 
012¢ 
012D 
O12E 
O1L2E 
0131 
0132 
0132 
0132 
0132 
0132 
0134 
0136 
0139 
0138 
013D 
013D 
013D 
013D 
013D 
013D 
013F 
0141 
0144 
0146 
0146 
0146 
0149 
014¢ 
014¢ 
014¢ 
014c 
014¢ 
O14E 
0151 
0153 
0153 
0153 
0153 
0153 
0155 
0155 
0156 
0158 
015A 
O15B 
015B 


2E 


E8 
DO 


C3 


BO 
51 
Bl 
F3 


4F 
39 


82 
C3 


8¢ 
B4 


03 
EB 


8c 
B4 
E8 
03 


82 
E8 


8A 
E8 
8A 


8A 


51 
Bl 
D2 
59 


E8 


51 00 
E0 
F7 


06 00 
3D 2¢ 
OA 


20 


FF 


3D OD 


DA 
78 00 


D6 
09 


c2 
6D 00 
D7 
D4 00 
12 00 


C6 


c2 


EO 


04 
E8 


02 00 


PRINTMES: 
SEG cs 
LODB 3sGet char to print 
CALL OuT 
SHL AL ; sHigh bit set? 
JNC PRINTMES 
RET 


3Scan for parameters of a command 


SCANP: 


CALL SCANB 3Get first non-blank 


CMP B, (DI],"," 3$One comma between params OK 
JNE EOLCHK sI£ not comma, we found param 
INC DI sSkip over comma 


3Scan command line for next non=blank character 


SCANB;: 
MOV AL, mon 
PUSH cx sDon’t disturb CX 
MOV CL,-1 ;but scan as many as necessary 
REPE 
SCAB 
DEC DI 3Back up to first non-blank 
POP cx 
EOLCHK: 
CMP B, (DI) ,13 
RET 


3Print the 5-<digit hex address of SI and DS 


OUTSI: 
MOV DX,DS 3Put DS where we can work with it 
MOV AH, 0 3Will become high bits of DS 
CALL SHIFT4 ;Shift DS four bits 
ADD DX, SI ;Compute absolute address 
JP OUTADD ;Finish below 


sPrint 5-digit hex address of DI and ES 
3Same as OUTSI above 


OUTDI: 
MOV DX,ES 
MOV AH,O 
CALL SHIFT4 
ADD DX,DI 
;Finish OUTSI here too 
OUTADD: 
ADC AH,O 3Add in carry to high bits 


CALL HIDIG sOutput hex value in AH 


3Print out 16-bit value in DX in hex 


OUT16: 
MOV AL ,DH sHigh-order byte first 
CALL HEX 
MOV AL ,DL sThen low-order byte 


sOutput byte in AL as two hex digits 


HEX: 

MOV AH, AL sSave for second digit 
sShift high digit into low 4 bits 

PUSH CX 

MOV cL,4 

SHR AL, CL 

POP CX 


CALL DIGIT ;Output first digit 


ei'5 


O15E 
O15E 
0160 
0160 
0162 
0162 
0164 
0165 
0167 
0168 
0168 
0168 
0168 
0168 
0169 
0169 
0168 
016D 
016F 
0170 
0172 
0173 
0173 
0173 
0173 
0173 
0175 
0177 
0177 
0177 
0177 
0177 
O17A 
017¢ 
017D 
017D 
017D 
017D 
017D 
017D 
Ol7F 
0181 
0183 


0185 — 


0187 
0189 
018B 
018D 
018F 
0191 
0193 
0195 
0197 
0199 
019B 
019D 
019F 
O1Al 
01A3 
01A3 
01A3 
01A3 
01A3 
0143 
O1A3 
O1A5 
O1A7 
O1AA 
O1AG 
O1AE 


BO 
EB 


E8 
E2 
c3 


76 
68 
oD 
88 


6A 
68 
4C 
68 
68 


6A 
68 


68 
68 
2F 
BA 
6A 


8A 
24 
E8 
BA 
8A 
32 


C4 
OF 
90 
40 


F7 
FA 


F6 


20 
Fl 


F9 
FB 


C2 
OF 
07 
DO 
C6 
F6 


FF 


00 


HIDIG: 
: MOV AL, AH . sNow do digit saved in AH 

DIGIT: ; 

AND AL,OFH . 3;Mask to 4 bits 
sTrick 6-byte hex conversion works on 8086 too. 

ADD AL, 90H 

DAA 

ADC AL, 40H 

DAA 


3Console output of character in AL 


OUT: 

PUSH AX sCharacter to output on stack 
OUTI1: 

INB STAT 

AND AL, TBMT 

JZ ouT1 sWait until ready 

POP AX 

OUTB DATA 

RET 


sOutput one space 
BLANK: 
MOV AL, "on 
JP out 


sOutput the number of blanks in CX 


TAB: 
CALL BLANK 
LOOP TAB 
RET 


;Command Table. Command letter indexes into table to get 
saddress of command. PERR prints error for no such command, 


COMTAB: 

DW BOOT 3B 
DW PERR 3C 
DW DUMP 3D 
DW ENTER 3E 
DW FILL 3F 
DW GO 3G 
DW PERR 3H 
DW INPUT 31 
DW PERR 3J 
DW PERR 3K 
DW PERR 3L 
DW MOVE 3M 
DW PERR 3N 
DW OUTPUT 30 
DW PERR 3P 
DW PERR 3Q 
DW REG 3R 
DW SEARCH ; 

DW TRACE ; 


sGiven 20-bit address in AH:DX, breaks it down to a segment 
snumber in AX and a displacement in DX. Displacement is 
salways zero except for least significant 4 bits. 


GETSEG: 
MOV AL,DL 
AND AL, OFH 3sAL has least significant 4 bits 
CALL SHIFT4 34-bit left shift of AH:DX 
MOV DL,AL sRestore lowest 4 bits 
MOV AL,DH sLow byte of segment number 
XOR DH,DH 3Zero high byte of displacement 
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01B0 
O1B1 
01B1 
O1BL 
O1B1 
O1BL 
01B3 
01B5 
01B7 
0189 
O1BB 
O1BD 
OLBF 
O0lcl 
01c2 
01c2 
01c2 
01c2 
01c2 
01c2 
01¢2 
0162 
01¢2 
01c2 
01c2 
01¢c5 
01¢8 
01¢9 
01CA 
01CcD 
01D0 
01D2 
01D5 
01D8 
O1DA 
01DD 
01E0 
O1LE2 
01E3 
O1E4 
O1E6 
O1E8 
O1LEA 
OLEB 
OLEC 
O1EE 
O1EE 
OLEF 
O1F2 
OLF5 
O1F5 
O1E7 
O1F8 
01F9 
O1F9 
O1F9 
O1F9 
01F9 
O1F9 
O1F9 
O1Fr9 
OLFB 
OLFF 
0201 
0203 
0205 
0205 
0205 
0205 
0205 


C3 


8B 
81 
E3 


73 


E2 
D4 
E2 
D4 
E2 
D4 
E2 
D4 


CA 
E7 
1D 


OB 


04 


F5 


CA 


00 
01 


FF 
4c 


00 
Ol 


00 
01 


00 
00 


OF 00 


RET 


3Shift AH:DX left 4 bits 


SHIFT4: 
SHL Dx 
RCL AH 31 
SHL DX 
RCL AH 32 
SHL Dx 
RCL AH 33 
SHL DX 
RCL AH 34 
RET2: RET 


3RANGE - Looks for parameters defining an address range. 
3sThe first parameter is a hex number of 5 or less digits 
swhich specifies the starting address. The second parameter 
s;may specify the ending address, or it may be preceded by 
3"L" and specify a length (4 digits max), or it may be 
somitted and a length of 128 bytes is assumed. Returns with 
ssegment no. in AX and displacement (O0-F) in DX. 


RANGE: 
MOV cx,5 35 digits max 
CALL GETHEX $Get hex number 
PUSH AX 3Save high 4 bits 
PUSH DX 3Save low 16 bits 
CALL SCANP 3;Get to next parameter 
CMP B, (DI],"L" sLength indicator? 
JE GETLEN 
MOV DX,128 ;Default length 
CALL HEXIN 3Second parameter present? 
JC RNGRET sIf not, use default 
MOV cx, 5 35 hex digits 
CALL GETHEX 3Get ending address 
MOV CX,DX sLow 16 bits of ending addr. 
POP DX sLow 16 bits of starting addr. 
POP BX sBH=hi 4 bits of start addr, 
SUB CX,DX ;Compute range 
SBB AH, BH 3Finish 20-bit subtract 
JNZ RNGERR s;Range must be less than 64K 
XCHG AX, BX sAH=starting, BH=ending hi 4 bits 
INC CX sRange must include ending location 
JP RNGCHK ;Finish range testing and return 
GETLEN: 
ING DI sSkip over "L" to length 
MOV CX,4 sLength may have 4 digits 
CALL GETHEX 3Get the range 
RNGRET: 
MOV CX,DX sLength 
POP DX ;Low 16 bits of starting addr. 
POP AX sAH=hi 4 bits of starting addr, | 


;RNGCHK verifies that the range lies entirely within one segment. 
3CX=0 means count=10000H. Range is within one segment only if 
sadding the low 4 bits of the starting address to the count is 
3<=10000H, because segments can start only on l6-byte boundaries. 


RNGCHK:; 
MOV BX,DX jLow 16 bits of start addr. 
AND BX, OFH sLow 4 bits of starting addr. 
JCXZ MAXRNG sI£ count=10000H then BX must be 0 
ADD BX,CX ;Must be <=10000H 
JNC GETSEG 3OK if strictly < 
MAXRNG:; 


3If here because of JCXZ MAXRNG, we are testing if low 4 bits 
3(in BX) are zero. If we dropped straight in, we are testing 
sfor BX+CX=10000H (=0). Either way, zero flag set means 
jwithing range. 
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0205 
0207 
0207 
020A 
020D 
020D 
020D 
020D 
020D 
0210 
0211 
0214 
0215 
0217 
0217 
O21A 
0218 
0218 
O21E 
O21E 
021F 
0222 
0223 
0224 
0226 
0228 
022A 
022C 
022D 
022F 
0231 
0233 
0236 
0238 
0238 
023B 
023D 
023D 
023E 
0240 
0242 
0244 
0244 
0244 
0244 
0244 
0246 
0248 
024A 
024D 
024F 
0252 
0254 
0254 
0255 
0257 
0259 
0258 
025D 
025F 
025F 
0261 
0261 
0264 
0266 
0267 
026A 
026A 
026A 
026A 


74 


B8 
E9 


E8 


E8 
1F 
8B 


E8 
56 


51 
8B 
8B 
2B 


9¢ 


52 
1F 


B2 
4E 
F2 


18 


55 


31 


17 
C6 
OF 
0c 


07 


32 
E6 


02 
DA 


C6 
F2 
C2 


D8 
EO 


33 
c8 


25 
cB 


2E 


04 
EE 


8A 


47 
03 


FF 


01 


FF 


FF 


FF 


FF 


00 


00 


FF 


FF 


FE 


JZ GETSEG 
RNGERR: 

MOV AX, 4700H+"R" 3RG ERROR 

IMP ERR 


;Dump an area of memory in both hex and ASCII 


DUMP: 
CALL RANGE 3Get range to dump 
PUSH AX s;Save segment 
CALL GETEOL sCheck for errors 
POP DS 3Set segment 
MOV SI,DX — 3SI has displacement in segment 
ROW: 
CALL OUTSI sPrint address at start of line 
PUSH SI 3Save address for ASCII dump 
BYTE: 
CALL BLANK 3Space between bytes 
BYTE1: 
LODB 3Get byte to dump 
CALL. HEX ~ gand display it 
POP DX sDX has start addr. for ASCII dump 
DEC cx sDrop loop count 
JZ ASCII 3If through do ASCII dump 
MOV AX, SI 
TEST AL, OFH 30n l6=—byte boundary? 
JZ ENDROW 
PUSH DX sDidn’t need ASCII addr. yet 
TEST AL,7 3On. 8=byte boundary? 
JNZ BYTE 
MOV AL,"=" ;Mark every 8 bytes 
CALL OUT 
JP BYTE] 
ENDROW: 
CALL ASCII sShow it in ASCII 
JP ROW ;Loop until count is zero 
ASCII: 
. PUSH cx 3Save byte count 
MOV AX, SI 3Current dump address 
MOV SI,DX sASCII dump address 
SUB AX,DX sAX=length of ASCII dump 


s;Compute tab length. ASCII dump always appears on right side 
s;screen regardless of how many bytes were dumped. Figure 3 
;characters for each byte dumped and subtract from 51, which 
sallows a minimum of 3 blanks after the last byte dumped. 


MOV BX, AX 

SHL AX sLength times 2 

ADD AX, BX . sLength times 3 

MOV CX, 51 

SUB CX, AX sAmount to tab in CX 

CALL TAB 

MOV CX, BX 3;ASCII dump length back in CX 
ASCDMP: 

" LODB 3Get ASCII byte to dump 

AND AL, 7FH sASCII uses 7 bits 

CMP . AL, 7FH sDon’t try to print RUBOUT 

JZ NOPRT 

CMP AL," " 3sCheck for control characters 

JNC PRIN 
NOPRT; 

MOV AL,"." sf unprintable character 
PRIN: j é 

CALL OUT 3Print ASCII character 

LOOP AS CDMP 3CX times 

POP cx . sRestore overall dump length 

JMP CRLF sPrint CR/LF and return 


sBlock move one area of memory to another. Overlapping moves 
sare performed correctly, i.e., so that a source byte is not 
soverwritten until after it has been moved. 
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026A 
026A 
026A 
026D 
026E 
026F 
0271 
0274 
0277 
027A 
027D 
027F 
0280 
0282 
0284 
0285 
0287 
0289 
028B 
028B 
028B 
028¢C 
028E 
0290 


0291: 


0292 
0292 
0293 
0294 
0295 
0296 
0297 
0297 
0297 
0297 
0297 
0297 
0297 
029A 
0298 
029¢ 
029D 
02A0 
02Al 
02A2 
02A3 
02A5 
02A8 
O2AA 
O02AC 
O2AC 
O2AE 
02B0 
O2B1 
02B2 
02B3 
02B4 
0284 
02B4 
02B4 
02B4 
02B4 
02B4 
02B4 
02B6 
0237 
0238 
O2BA 
O2BA 
O2BA 


8B 


lF 
EB 


55 


F2 
05 
73 
E8 
26 


DB 
co 


c3 
07 


Fl 
F9 


28 


B4 


Dg 
18 
02 
E6 


CB 
D9 


cB 


D8 


FF 


00 


00 
FF 


FF 


00 


01 


MOVE: 
CALL RANGE 3Get range of source area 
PUSH cx 3Save length 
PUSH AX 3Save segment 
MOV SI ,DX 3Set source displacement 
MOV cX,5 sAllow 5 digits 
CALL GETHEX sin destination address 
CALL GETEOL sCheck for errors 
CALL GETSEG 3Convert dest. to seg/disp 
MOV DI,DX sSet dest. displacement 
POP BX sSource segment 
MOV DS , BX 
MOV ES ,AX ;Destination segment 
POP cx sLength 
CMP DI,SI sCheck direction of move 
SBB AX, BX sExtend the CMP to 32 bits 
JB COPYLIST sMove forward into lower men, 


sOtherwise, move backward. Figure end of source and destination 


sareas and flip direction flag. 


DEC CX 
ADD SI ,Cx 3End of source area 
ADD DI,cx sEnd of destination area 
DOWN sReverse direction 
INC cx . 
COPYLIST: 
MOVB 3Do at least 1 - Range is 1-10000H not 0~FFFFH 
DEC cx 
REP 
MOVB ;Block move 
RET 


3Fill an area of memory with a list values. If the list 
3is bigger than the area, don’t use the whole list. If the 
slist is smaller, repeat it as many times as necessary. 


FILL: 

CALL RANGE 3Get range to fill 

PUSH cX 3Save length 

PUSH AX ;Save segment number 

PUSH DX 3Save displacement 

CALL LIST 3Get list of values to fill with 

POP DI ;Displacement in segment 

POP ES ;Segment 

POP cx sLength 

CMP BX, CX 3BX is length of fill list 

MOV SI, LINEBUF sList is in line buffer 

JCXZ BIGRNG 

JAE COPYLIST 3If list is big, copy part of it 
BIGRNG: ‘ 

SUB CX, BX sHow much bigger is area than list? 

XCHG CX, BX 3CX=length of list 

PUSH DIL 3Save starting addr. of area 

REP 

MOVB sMove list into area 

POP SI 


sThe list has been copied into the beginning of the 
sspecified area of memory. SI is the first address 

3of that area, DI is the end of the copy of the list 
s;plus one, which is where the list will begin to repeat. 
3All we need to do now is copy [SI] to [DI] until the 
send of the memory area is reached. This will cause the 
slist to repeat as many times as necessary. 


MOV CX, BX sLength of area minus list 

PUSH ES ;Different index register 

POP DS srequires different segment reg. 
JP COPYLIST 3Do the block move 


sSearch a specified area of. memory for given list of bytes. 
sPrint address of first byte of each match. 
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.O2BA 
O2BA 
O02BA 
O2BD 
O02BE 
02BF 
02c0 
02c3 
024 
02C5 
0266 
02¢7 
02c9 
02c9 
02CcG 
02cD 
02cD 
02CE 
02D0 
02D2 
02D3 
02D5 
02D6 
02D7 
02D8 
O02DA 
02DB 
02DC 
02DE 
02DF 
02E2 
0253 
02E6 
02E6 
02E8 
O2EA 
O2EA 
02EA 
O2EA 
O2EA 
O2EA 
O02ED 
O2ED 
O2EF 
O2F1 
O2F4 
02F6 
02F8 
02F8 
02F9 
O2FA 
02FD 
O2FF 
0301 
0304 
0306 
0308 
0308 
0308 
0308 
0308 
0308 
030A 
030A 
030A 
030A 
030A 
030A 
030¢ 
030E 


E8 


50 
52 
E8 
4B 
SF 
07 
59 
2B 


BE 
AG 


8A 


2¢ 


3¢ 


05 FF 


91 


CB 


18 


CB 


CB 


08 
5B 
OE 


AE 
DF 


2F 
D2 
E6 
14 


DO 


OB 
68 
AD 


DO 
FO 


05 


30 


OA 


00 


01 


FE 


FE 


FE 


00 


00 


FE 


SEARCH: 
CALL 
PUSH 
PUSH 
PUSH 
CALL 
DEC 
POP 
POP 
POP 
SUB 
SCAN: 
MOV 
LODB 
DOSCAN: 
SCAB 
LOOPNE 
INZ 
PUSH 
XCHG 
PUSH 
REPE 
CMPB 
MOV 
POP 
POP 
JNZ 
DEC 
CALL 
INC 
CALL 
TEST: 
ICXZ 
JP 


RANGE 
cx 
AX 

DX 
LIST 
BX 

DI 

ES 

cx 
CX,BX 


SI, LINEBUF 


DOSCAN. 
RET 

BX 
BX,CX 
DI 


CX, BX 
DI 

BX 
TEST 
DI 
OUTDI 
DI 
CRLF 


RET 
SCAN 


3Get area to be searched 
;Save count 

3Save segment number 

3Save displacement 

3Get search list 

3No. of bytes in list-1 
sDisplacement within segment 
3;Segment 

sLength to be searched 

3; minus length of list 


sList kept in line buffer 
;Bring first byte into AL 


sSearch for first byte 

3Do at least once by using LOOP 
sExit if not found 

sLength of list minus 1 


sWill resume search here 


s;Compare rest of string 
3Area length back in CX 


sNext search location 
sRestore list length 
sContinue search if no match 
sMatch address 

sPrint it 

sRestore search address 


sLook for next occurrence 


3;Get the next parameter, which must be a hex number. 
3CX is maximum number of digits the number may have. 


GETHEX: 
CALL 
GETHEX13 
XOR 
MOV 
CALL 
JC 
MOV 
GETLP: 
INC 
DEC 
CALL 
Jc 
JCXZ 
CALL 
OR 
JP 


sCheck if next character in the 
sand convert it to binary if it 


HEXIN: 
MOV 


SCANP 


DX,DX 
AH,DH 
HEXIN 
ERROR 
DL,AL 


DI 
cx 
HEXIN 
RET 
ERROR 
SHIFT4 
DL,AL 
GETLP 


AL, [DI] 


3Scan to next parameter 
sInitialize the number 


3Get a hex digit 
sMust be one valid digit 
sFirst 4 bits in position 


sNext char in buffer 

sDigit count 

3Get another hex digit? 
3All done if no more digits 
s$Too many digits? 

;Multiply by 16 

sand combine new digit 

3Get more digits 


input buffer is a hex digit 
is. Carry set if not. 


sCheck if AL has a hex digit and convert it to binary if it 
sis. Carry set if not. 


HEXCHK: 
SUB 
JC 
CMP 


AL,"0" 
RET 
AL, 10 
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3Kill ASCII numeric bias 




















i] 
i 








| 
| 
a 








. 0310 


0311 
0313 
0315 
0317 
0319 
0318 
031¢ 
031D 
031D 
031D 
031D 
031D 
031D 
0320 
0323 
0325 
0328 
032B 
032D 
032E 
032F 
0330 
0330 
0332 
0334 
0336 
0338 
033A 
033B 
033¢ 
033¢ 
033E 
033F 
033F 
0341 
0342 
0344 
0346 
0348 
034A 
034¢ 
034E 
034F 
034F 
0351 
0352 
0354 
0354 
0354 
0354 
0354 
0354 
0354 
0357 
0357 
035A 
035¢ 
0360 
0362 
0362 
0362 
0362 
0362 
0362 
0362 
0365 
0367 
0368 


E8& 
E8 
72 
B9 


88 
43 
F8 
C3 


8A 
3¢ 


3C 
74 
F9 
C3 


8A 
47 


8A 


3C 
74 


75 
3A 
75 
47 


88 


43 
EB 


BB 


E8 
73 


74 


E8 
75 
c3 


FC 
E5 


02 
BF 
17 


05 
27 
06 


02 


18 


C3 
FB 
EB 
07 


co 
02 


00 
FF 


01 
FF 


18 Ol 


FD 


CMC 
JNG RET 30K if 0-9 
SUB AL,7 $Kill A-F bias 
CMP AL,10 
Jc RET 
CMP AL, 16 
CMC 
RET: RET 


s;Process one parameter when a list of bytes is 
srequired. Carry set if parameter bad. Called by LIST 


LISTITEM: 
CALL SCANP 3;Scan to parameter 
CALL HEXIN sIs it in hex? 
Jc STRINGCHK 3I£f not, could be a string 


MOV CX,2 sOnly 2 hex digits for bytes 
CALL GETHEX 3sGet the byte value 


MOV [BX] ,DL sAdd to list 
INC BX 
GRET: CLC ;Parameter was OK 
: RET 
STRINGCHK: 
MOV AL, [DI] 3Get first character of param 
CMP AL,'*" sString? 
JZ STRING 
CMP AL, “"” sEither quote is all right 
JZ STRING 
STC sNot string, not hex - bad 
RET 
STRING: 
MOV AH, AL 3Save for closing quote 
INC DI 
STRNGLP: 
MOV AL, (DI) sNext char of string 
INC DI 
CMP AL, 13 3;Check for end of line 
JZ ERROR sMust find a close quote 
CMP AL , AH sCheck for close quote 
JNZ STOSTRG sAdd new character to list 
CMP AH, [DI] $Two quotes in a row? 
JNZ GRET sI£ not, we’re done 
INC DI 3Xes — skip second one 
STOSTRG: 
MOV [BX] , AL s;Put new char in list 
INC BX 
JP STRNGLP sGet more characters 


3Get a byte list for ENTER, FILL or SEARCH. Accepts any number 
sof 2-digit hex values or character strings in either single 
3(°) or double (") quotes, 


LIST: 
MOV BX, LINEBUF sPut byte list in the line buffer 
LISTLP: 


CALL LISTITEM ;Process a parameter 


JING LISTLP sIf OK, try for more 
SUB BX, LINEBUF 3BX now has no. of bytes in list 
JZ ERROR s;List must not be empty 


sMake sure there is nothing more on the line except for 
jblanks and carriage return. If there is, it is an 
sunrecognized parameter and an error. 


GETEOL: 
CALL SCANB 3Skip blanks 
JNZ ERROR 3;Better be a RETURN 
RET 
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0368 
0368 
0368 
0368 
0368 
0368 
0369 
0369 
0369 
0369 
0369 
0369 
0369 
0369 
036D 
036F 
0372 
0375 
0375 
0375 
0375 
0375 
0378 
037B 
0378 
037B 
037B 
0378 
0378 
0378 
037E 
037F 
0380 
0383 
0385 
0386 
0387 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
0388 
038B 
038E 
0391 
0391 
0391 
0391 
0394 
0397 
0398 
0399 
039¢ 
039E 
039F 
03A0 


4F 


81 
8B 
E8& 
BE 


E8 
E9 


B9 
E8 
E8 


82 


50 
52 
E8& 
75 
5F 
07 


EF 
CF 
05 
6A 


9A 
0c 


D6 


18 


05 


12 


EC 
C6 


89 
DD 


17 Ol 


FE 
07 


ag 


FF 


01 


00 
FF 
FE 


08 
80 


;Command error, DI has been incremented beyond the 
scommand letter so it must decremented for the 
serror pointer to work. 


PERR: 
DEC DI 


3Syntax error. DI points to character in the input buffer 

swhich caused error. By subtracting from start of buffer, 

swe will know how far to tab over to appear directly below 
git on the terminal. Then print "* Error", 


ERROR: 
SUB DI, LINEBUF=1 sHow many char processed go far? 
MOV CX,DI ;Parameter for TAB in CX 
CALL TAB sDirectly below bad char 
MOV S1I,SYNERR sError message 


3Print error message and abort to command level 


PRINT: 
CALL PRINTMES 
JMP COMMAND 


sShort form of ENTER command. A list of values from the 
scommand line are put into memory without using normal 
sENTER mode. 


GETLIST: ; 
CALL LIST 3Get the bytes to enter 
POP DI -- sDisplacement within segment 
POP ES s;Segment to enter into 
MOV SI,LINEBUF sList of bytes is in line buffer 
MOV CX, BX 3Count of bytes 
REP 
MOVB sEnter that byte list 
RET 


3Enter values into memory at a specified address. If the 
sline contains nothing but the address we go into "enter 
smode", where the address and its current value are printed 
sand the user may change it if desired. To change, type in 
snew value in hex. Backspace works to correct errors. If 

san illegal hex digit or ‘too many digits are typed, the 
;bell is sounded but it is otherwise ignored. To go to the 
gnext byte (with or without change), hit space bar. To 

sback up to a previous address, type "=". On 

severy 8=<byte boundary a new line is started and the address 
sis printed. To terminate command, type carriage return. 

3 Alternatively, the list of bytes to be entered may be 
3included on the original command line immediately following 
s;the address. This is in regular LIST format so any number 
sof hex values or strings in quotes may be entered. 


ENTER: 
MOV CX,5 35 digits in address 
CALL GETHEX 3Get ENTER address 
CALL GETSEG ;Convert to seg/disp format 


sAdjust segment and displacement so we are in the middle 
3of the segment instead of the very bottom. This allows 
;backing up a long way. 

SUB AH, 8 sAdjust segment 32K down 


ADD DH, 80H 3 and displacement 32K up 
PUSH AX 3Save for later 

PUSH DX 

CALL SCANB s;Any more parameters? 

INZ GETLIST 3If not end-of-line get list 
POP DI sDisplacement of ENTER 

POP ES ;Segment 


GETROW: 
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pasate 





* 0340 


03A3 
03A6 
03A6 
03A7 
03A9 
03AC 
03AE 
03B1 
03B4 
03B7 
03B7 
O3BA 
03BC 
O3BF 
03c1 
03c3 
03C6 
03c8 
03CA 
03cC 
03cC 
03CcC 
O3CF 
03cF 
03D1 
03D3 
03D5 
03D7 
03D9 
03DB 
03DD 
O03DF 
03EL 
03E3 
03E3 
03E5 
03E8 
03EA 
03EC 
03EC 
O3EF 
O3F1 
03F3 
O3F5 
03F7 
O3FA 
O3FC 
03FC 
03FC 
O3FC 


O3FC 


03FC 
O3FF 
0401 
0401 
0402 
0404 
0406 
0407 
0409 
040A 
040¢ 
040¢ 
040D 
040E 
040E 
0411 
0414 
0414 


E8 
E8 


26 


E8 
BO 
E8 
B9 
BA 


E8 
8A 


86 
72 


8A 
8A 
E2 


E8& 


82 
74 


51 
Bl 
D2 


0A 
26 
88 


47 
C3 


E8 
E9 


E8 


F9 
OB 


04 
E6 
D6 


15 


EB 
EO 


E5 


3g 


02 


02 


FF 
FG 


FF 


CALL OUTDI 3Print address of entry 
. CALL BLANK sLeave a space 
GETBYTE: 
SEG ES 
MOV AL, [DI] 3sGet current value 
CALL HEX 3And display it 
MOV AL, eon : ' 
CALL oOuT 3;Prompt for new value 
MOV CX,2 sMax of 2 digits in new value 
MOV Dx,0 sIntial new value 
GETDIG: 
CALL: IN. . 3sGet digit from user 
MOV AH, AL 3;Save 
CALL HEXCHK sHex digit? 
XCHG AH, AL sNeed original for echo 
JC NOHEX sIf not, try special command 
CALL OUT ; sEcho to console 
MOV DH,DL sRotate new value 
MOV DL, AH sAnd include new digit 
LOOP GETDIG sAt most 2 digits 
3;We have two digits, so all we will accept now is a command. 
WAIT: 
CALL IN sGet command character 
NOHEX: 
CMP AL,8 sBackspace 
JZ BS 
CMP AL, 7FH ;RUBOUT 
JZ BS 
CMP AL, "=" sBack up to previous address 
JZ. PREV 
CMP AL, 13 3Al1 done with command? 
JZ EOL : 
CMP AL," " 3Go to next address 
JZ NEXT 
sI£ we got here, character was invalid. Sound bell. 
MOV AL,7 
CALL OUT 
JCXZ WALT 3CX=0 means no more digits 
JP GETDIG 3sDon’t have 2 digits yet 
BS: 
CMP CL,2 3CX=2 means nothing typed yet 
JZ GETDIG 3Can’t back up over nothing 
ING CL 3;Accept one more character 
MOV DL,DH 3Rotate out last digit 
MOV DH,CH 3Zero this digit 
CALL BACKUP ;Physical backspace 
Jp GETDIG s$Get more digits 


sI£ new value has been entered, convert it to binary and 
jput into memory. Always bump pointer to next location 


STORE: 
CMP 
JZ 
sRotate DH left 
PUSH 
MOV 
SHL 
POP 
OR 
SEG 
MOV 
NOSTO: 
INC 
RET 
EOL: 
CALL 
*. SMP. ° 
NEXT: 
CALL 


CL,2 ;CX=2 means nothing typed yet 
NOSTO 3So no new value to store 

4 bits to combine with DL and make a byte value 
cx 


CL,4 

DH,CL 

CX 

DL,DH sHex is now converted to binary 
ES 

[DI] ,DL ;Store new value 

DI ;Prepare for next location 
STORE s;Enter the new value 

CRLF - 3CR/LF and terminate 

STORE sEnter new value 
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0417 
0418 
0419 
041¢ 
O41E 
0420 
0422 
0422 
0425 
0428 
0428 
0423 
0428 
042¢ 
042D 
042F 
042F 
042F 
042F 
042F 
042F 
0432 
0434 
0436 
0437 
0439 
043¢ 
0435 
043F 
0442 
0445 
0447 
044A 
044B 
044¢ 
044D 
0450 
0451 
0452 
0454 
0456 
0458 
0459 
045A 
045B 
045E 
045E 
0461: 
0463 
0466 
0469 
046A 
0468 
046F 
0471 
0474 
0477 
0479 
047¢ 
047F 
0482 
0484 
0487 
048A 
048D 
O48F 
0490 
0490 
0493 
0496 


41 
41 
E8 
8B 


75 


E8 
E9 


E8 


4F 
4F 
EB 


5B 
c7 


84 


CF 
78 


DL 


F3 


EA 
62 


35 
FE 
76 


20 
FE 


D7 


OE 


3¢ 


06 


45 


07 
C4 
02 
0A 


Fc 
FF 


FF 


FC 


oD 


FF 


20 
06 


00 


FC 
FC 
FC 


00 
FE 
FE 


52 
00 


FA 


INC cx ;Leave a space plus two for 
INC cx 3 each digit not entered 
CALL TAB : 
MOV AX,DI sNext memory address 
AND AL,7 sCheck for 8=-byte boundary 
: JNZ GETBYTE sTake 8 per line 

NEWROW: 
CALL CRLF ; sTerminate line 
JMP GETROW sPrint address on new line 

PREV: : 
CALL STORE - 3Enter the new value 

sDI has been bumped to next byte. Drop it 2 to go to previous addr 
DEC DI 
DEC DI . 
JP NEWROW : sTerminate line after backing up 


3;Perform. register dump if no parameters or set register if a 
sregister designation is a parameter. 


REG: 
CALL 
JZ 
MOV 
INC 
MOV 
CMP 
JZ 
INC 
CALL 
CMP 
JZ. 
MOV 
XCHG 
PUSH 
POP 
MOV 
REPNZ 
SCAW 
JNZ 
OR 
JNZ 
DEC 
DEC 
SEG 
MOV 
NOTPC: 
CALL 
MOV 
CALL 
CALL 
PUSH 
POP 
LEA 
MOV 
CALL 
CALL 
MOV 
CALL 
CALL 
CALL 
JZ 
MOV 
CALL 
CALL 
MOV 
RET3; RET 
BADREG: 
MOV 
JMP 
DISPREG: 


SCANP 
DISPREG 
DL, [DI] 
DI 

DH, [DI] 
DH,13 
FLAG 

DI 

GETEOL 
DH, tot 
FLAG 
DI,REGTAB 
AX,DX 

cs 

ES 

CX, REGTABLEN 


BADREG 
CX,CX 
NOTPC 

DI 

DI 

cs 

AX, [DI-2] 


OUT 
AL, AH 

OUT 

BLANK 

Ds 

ES 

BX, (DI+REGDIF-2] 
DX, [BX] 
-OUT16 

CRLF 

AL, "nytt 

OUT 

INBUF 

SCANB 

RET3 

CX,4 
GETHEXL 
GETEOL 

[BX] ,DX 


AX, 5200H+"B" 3;BR ERROR 
ERR 


= 94s 











maine 





8 
A 
a 
a 
a 
2 








‘ 
a 
J 
| 
1 
L 





0496 
0499 
049C 
049F 
04A2 
04A5 
04A8 
O4AB 
O4AE 
04B1 
04B4 
O4B4 
0437 
04389 
04BC 
O4BE 
04cl 
04¢4 
04C7 
04c9 
04cD 
04cD 
O4CF 
04D0 
04D2 
04D4 
04D7 
04D9 
O04DC 
O4DF 
04E0 
04E1 
O4E2 
04E3 
04E5 
O4E7 
O4EA 
O4ED 
O4EF 
O4F1 
O4F3 
O4F5 
O4F7 
O4FA 
O4FC 
O4FE 
O4FE 
0500 
0501 
0502 
0505 
0507 
0507 
0508 
0509 
050C 
050E 
0511 
0513 
0516 
0518 
0519 
O51A 
051D 
0520 
0523 
0525 
0526 
0526 
0529 


BE 


oD 
66 
FC 


F3 
20 


5A 
E9 
El 
01 
co 
C3 
33 
D8 
DO 
cs 


DO 


17 
c6 


oD 


06 
00 


OF 
00 


10 


FC 


FC 
FC 


FC 


FC 
FC 
FC 


ol 


MOV 
MOV 


CALL 
CALL 


CALL 
CALL 
CALL 


CMP 
JNZ 
CALL 
MOV 
CALL 
CALL 
CALL 
XOR 
MOV 
GETFLG: 

MOV 
LODW 


JZ 
CMP 


MOV 
MOV 
PUSH 
POP 
REPNE 
SCAW 
JNZ 
MOV 
AND 
MOV - 
ROL 
TEST 
JINZ 
OR 
OR 
TEST 
JNZ 
XOR 
NEXFLG? 
MOV 
PUSH 
POP 
CALL 
JP 
DISPREGLINE: 
SEG 
LODW 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
ING 
INC 
CALL 
CALL 
CALL 
LOOP 
RET 
REPFLG; 
MOV 
FERR3 


SI,REGTAB 
BX, AXSAVE 
CX,8 
DISPREGLINE 
CRLF 

CX, 5 
DISPREGLINE 
BLANK 
DISPFLAGS 
CRLF 


DL és os a 
BADREG 
DISPFLAGS 
AL ; tote 

OUT 

INBUF 

SCANB 

BX, BX 

DX, (FSAVE] | 


SI,DI 


AL, 13 
SAVCHG 

AH, 13 
FLGERR 

DI, FLAGTAB 
CX, 32 

cs 

ES 


FLGERR 
CH,CL 
CL, OFH 
AX,1 
AX, CL 
AX, BX 
REPFLG 
BX,AX 
DX,AX 
CH, 16 
NEXFLG 
DX, AX 


DI,SI 
DS 

ES 
SCANP 
GETFLG 


cs 


OUT 

AL, AH 
out 

AL, "=" 
OUT 

DX, [BX]. 
BX 

BX 
OUT16 
BLANK 
BLANK 
DISPREGLINE 


AX, 4600H+"D" ;DF ERROR 
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0529 
052¢ 
052¢ 
052F 
0531 
0534 
0537 
053A 
053A 
053E 
053F 
053F 
0542 
0544 
0544 
0547 
054A 
054E 
O54E 
O54F 
0550 
0552 
0554 
0555 
0558 
0558 
055A 
055¢ 
O55F 
0561 
0564 
0567 
0567 
0569 
056A 
056A 
056A 
056A 
056A 
056A 
056A 
056D 
0570 
0573 
0575 
0578 
057B 
0578 
O57F 
0582 
0582 
0588 
058D 
058D 
0593 
0597 
059D 
O5Al 
05A2 
05A8 
O5AC 
O5AF 
0580 
OSB1 
05B2 
0533 
05B4 
05B5 
05B6 
05B7 


E8 


E8 
8A 
E8 
BE 
E9 


89 
C3 


B8 
EB 


BE 
B9 
8B 


2E 


D1 
72 


8B 


0B 


E8& 
8A 
E8 
E8 


E2 
C3 


E8 
E8 
BA 
72 
B9 
E8 


89 
E8 


C7 
80 


C7 
86 


8C 
FA 
C7 
8¢ 
BC 
58 
5B 
59 
SA 
5D 
5D 
SE 
5F 
07 


OE 


39 
C4 


6B 
3B 


16 
42 
E5 
F3 


16 


E2 
04 


44 


co 
OB 


C4 
04 
0c 


E5 


AF 
98 
01 


04 
6F 


16 
EO 


06 
OE 


06 
OE 
06 
OE 
06 


9¢C 


00 


FC 
FC 
07 
FE 


B6 


46 


06 
00 
B6 


1E 


¥C 


FC 
FC 


FB 
00 


00 


02 


00 


B7 


0c 
OE 


06 
64 


66 
01 


01 


01 


01 


01 
01 


00 
00 
00 
00 


00 


00 00 
01 


D1 05 


D8 05 


D8 05 


CALL 
ERR: 


CALL 
MOV 
CALL 
MOV 
JMP 
SAVCHG: 
MOV 
RET 
FLGERR: 
MOV 
JP 
DISPFLAGS: 
MOV 
MOV 
MOV 
DFLAGS: 
SEG 
LODW 
SHL 
Jc 
SEG 
MOV 
FLAGSET: 
OR 
Jz 
CALL 
MOV 


CALL . 


CALL 
NEXTFLG: 

LOOP 

RET 


SAVCHG 


ouT 
AL, AH 

OUT 
SI,ERRMES 
PRINT © 


[FSAVE] ,DX 


AX, 4600H+"B" 3BF ERROR 


FERR 


SI, FLAGTAB 
CX, 16 
DX, [FSAVE] 


cs 


DX 
FLAGSET 
cs 

AX, [SI+30] 


AX, AX 
NEXTFLG 
OUT 
AL,AH 
out 
BLANK 


DFLAGS 


sTrace 1 instruction or the number of instruction specified 
sby the parameter using 8086 trace mode. Registers are all 
3set according to values in save area 


TRACE: 
CALL 
CALL 
MOV 
Jc 
MOV 
CALL 
STOCNT: 
MOV 
CALL 
STEP: 
MOV 
OR 
EXIT: 
MOV 
MOV 
MOV 
MOV 
DI 
MOV 
MOV 
MOV 
POP 
POP 
POP 
POP 
POP 
POP 
POP 
POP - 
POP 


SCANP 
HEXIN 
DX, 1 
STOCNT 
CX,4 
GETHEX 


(TCOUNT] ,DX 
GETEOL 


[BRKCNT] ,0 
B, [FSAVE+1],1 


[12] , BREAKFIX 
[14],cs 

[4] ,REENTER 
[6],cs 


[64H] ,REENTER 
[66H] ,cS 
SP, STACK 
AX 

BX 

Cx 

DX 

BP = 

BP 

SI 

DI. 

ES 


a ee 


if 
{ 
i 
| 


























05B8 
05B9 
O5BA 
OSBE 
052 
05C6 
O5CA 
O5CE 
O5CF 
OSD1 
O5D1 
O5D1 
05D1 
O5D1 
osD1 
05D1 
05D3 
05D6 
05D8 
05D8 
05D8 
05D8 
05D8 
05D8 
05D8 
05D9 
O5DD 
O5DE 
05E2 
O5E4 
O5E6 
05E9 
OSEA 
O5EB 
O5EC 
O5ED 
OSEE 
OSEF 
O5F0 
OSF1 
O5F2 
O5F3 
O5F4 
O5F5 
OSF6 
O5FA 
OSFE 
0602 
0606 
0607 
060A 
060D 
0611 
0612 
0613 
0614 
0615 
0618 
O61E 
0620 
0622 
0623 
0624 
0627 
062A 
062E 
0630 
0630 
0633 
0637 


87 


87 


26 
36 
36 
36 
1E 


Bl 


EC 


EC 


26 


16 
E4 
D4 
BO 


9C 


20 
F2 


cD 
6¢ 
OE 
oF 


04 
OE 
10 


A4 
B6 
B2 
B4 
AC 


00 


A4 


BO 


01 


A4 
BO 
B4 
B2 


FE 


01 
A4 


01 
64 


FA 


02 


01 
00 


01 


01 
01 


09 


09 


ol 


00 BB 06 


01 


01 


POP ES 
POP ss 
MOV SP, [SPSAVE] 
PUSH [FSAVE] 
PUSH [CSSAVE] 
PUSH [IPSAVE] 
MOV DS, [DSSAVE] 
IRET 

STEP1: JP STEP 


sRe-entry point from breakpoint. Need to decrement instruction 
s;pointer so it points to location where breakpoint actually 
soccured. 


BREAKFIX: 
XCHG SP,BP 
DEC [BP] 


XCHG = SP, BP 


sRe-entry point from trace mode or interrupt during 
sexecution. All registers are saved so they can be 
3displayed or modified. 


REENTER: 
SEG cs 
MOV [SPSAVE+SEGDIF] , SP 
SEG cs 
MOV [SSSAVE+SEGDIF] ,SS 
XOR SP,SP 
MOV $S,SP 
MOV SP ,RSTACK 
PUSH ES 
PUSH DS 
PUSH DI 
PUSH. SI 
PUSH ——-BP 
DEC SP 
DEC SP 
PUSH DX 
PUSH CX 
PUSH BX 
PUSH AX 
PUSH = SS 
POP Ds 
MOV SP, [SPSAVE] 
MOV SS, [SSSAVE] 
POP [IPSAVE] 
POP [CSSAVE] 
POP AX 
AND AH, OFEH 
MOV [FSAVE] ,AX 
MOV [SPSAVE] , SP 
PUSH DS 
POP ES 
PUSH DS 
POP ss 
MOV SP, STACK 
MOV [64H] , INT 
MOV AL, 20H 
OUT BASE+2 
EI 
UP 
CALL CRLF 
CALL  DISPREG 
DEC ([TCOUNT] 
JNZ STEP 1 
ENDGO: 
MOV SI, BPTAB 
MOV CX, [BRKCNT] 


JCXZ COMJMP 
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0639 
0639 
063¢ 
063D 
063E 
0641 
0643 
0645 
0646 
0647 
0649 
064C 
064¢ 
064¢ 
064C 
064¢ 
064F 
0652 
0653 
0656 
0659 
0659 
0659 
0659 
0659 
065C 
065F 
0660 
0663 
0666 
0667 
0668 
0669 
066A 
066A 
066A 
066A 
066A 
066A 
066D 
066F 
066F 


0672. 


0674 
0677 
067A 
067¢ 
067F 
0680 
0681 
0682 
0685 
0687 
068A 
068D 
068D 
0691 
0694 
0696 
0698 
069B 
069B 
069E 
069F 
06A2 
06A4 
06A6 
06A8 
06AB 
06AC 


8B 


E8 
8E 
8B 
58 


E2 
E9 


B9 
E8 
EC 
E8 
E9 


B9 
£8 
52 
B9 
E8 


5A 
EE 


8B 


E8 
8E 
8B 
8A 
c6 
06 
IF 


54 


62 


14 


FB 


co 


FA 


FO 
3B 


04 
98 


9B 


04 
8B 


02 
84 


FE 
E8 
42 
oF 


36 
CE 
CE 
1A 
04 


54 


01 
D8 
FA 
05 
05 


FA 


00 
FC 


FA 
FA 


00 
FC 


00 
FC 


01 


FA 


00 
FC 


OB 


50 
FE 


00 
FC 


01 


14 


FB 


cc 


01 


CLEARBP; 
MOV 
LODW 
PUSH 
CALL 
MOV 
MOV 
POP 
STOB 
LOOP 

COMJMP: JMP 


sInput from the 


INPUT: 
MOV 
CALL 
INB 
CALL 
JMP 


sOutput a value 


QUTPUT: 
MOV 
CALL 
PUSH 
MOV 
CALL 
XCHG 
POP 
OUTB 
RET 


s;Jump to progra 
3save area. Up 


GO: 
MOV 
XOR 
GOl: 
CALL 
JZ 
MOV 
CALL 
MOV 
MOV 
INC 
INC 
INC 
CMP 
JNZ 
MOV 
JMP 
EXEC: 
MOV 
CALL 
MOV 
JICXZ 
MOV 
SETBP: 
MOV 
LODW 
CALL 
MOV 
MOV 
MOV 
MOV 
PUSH 
POP 


DX, [SI+BPLEN] 


AX 
GETSEG 
ES,AX 
DI,DX 
AX 


CLEARBP 
COMMAND 


specified port and display result 


CX,4 ;Port may have 4 digits 
GETHEX 3Get port number in DX 
DX 3Variable port input 
HEX 3And display 

CRLF 


to specified port. 


cXx,4 sPort may have 4 digits 
GETHEX 3Get port number 

DX 3Save while we get data 
CX,2 sByte output only 
GETHEX 3Get data to output 

AX, DX sOutput data in AL 

DX sPort in DX 


DX ;Variable port output 


m, setting up registers according to the 
to 10 breakpoint addresses may be specified. 


BX, LINEBUF 
SI,ST 


SCANP 

EXEC 

CX,5 

GETHEX 

[BX] ,DX 
[BX-BPLEN+1] , AH 
BX 

BX 

SI 

SI, BPMAX+1 

Gol 

AX, 5000H+"B" 3BP ERROR 
ERR 


(BRKCNT] , SI 
GETEOL 

CX, SL 

NOBP 

SI, BPTAB 


DX, ([SI+BPLEN] 


GETSEG 

DS, AX 
DI,DX 

AL, [D1] 

B, [DI] ,OCCH 
ES 7 

DS 
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at 
uf 
7 
e | 

5 


Q6AD 
06B0 
06B2 
06B2 
06B8 
O6BB 
O6BB 
06BB 
06BB 
O6BB 
06BB 
O6BB 
06BB 
O6BB 
O6BC 
06BC 
06BG 
O6BC 
O6BE 
06C0 
06C2 
06C4 
06C6 
06C8 
06CB 
06CB 
06CD 
06CF 
06CF 
0é6D0 
06D1 
06D1 
06D4 
06D7 
06D7 


06F3 
06F3 
06F3 
06F3 
O6F3 
06F3 
06F3 
06F3 
06F3 
O6F5 
O6F7 
O06F9 
O6FB 
O6FD 
O6FF 
0701 
0703 
0705 
0707 
0709 
0708 
070D 
070F 
0711 
0713 
0715 
0717 
0719 
0718 
071D 
O71F 


88 
E2 


C7 
E9 


50 


BO 
E6 
E4 
24 
3¢ 


E8 


3¢ 
74 


58 
CF 


E8 
E9 


41 
44 
53 
45 
49 


44 
E9 


06 
D2 


20 
F2 
F6 
7F 
13 


37 


03 
02 


FE 


02 
FE 


FA 


FA 
F9 


42 
33 
44 
53 
50 


01 01 00 


58 43 58 
50 42 50 
49 44 53 
53 43 53 
43 


MOV [SI-2] ,AL 

LOOP —SETBP 
NOBP: 

MOV [TCOUNT] ,1 

JMP EXIT 


sConsole input interrupt handler. Used to interrupt commands 
jor programs under execution (if they have interrupts 
senabled). Control-S causes a loop which waits for any other 
scharacter to be typed. Control=-C causes abort to command 
smode, All other characters are ignored. 


INT: 

PUSH AX sDon’t destroy accumulator 
sOutput End-of-Interrupt commands to slave 8259A. This 
swouldn’t be necessary if Automatic End of Interrupt mode 
sworked like it was supposed tol 


MOV AL, 20H 
OUT BASE+2 
IN DATA sGet interrupting character 
AND AL, 7FH sASCII has only 7 bits 
CMP AL, "S"—"@" 3Check for Control-S 
JINZ NOSTOP 
. CALL ‘IN sWait for continue character 
NOSTOP: 
CMP AL, "c"'—"@" 3Check for Control-C 
JZ BREAK 
sJust ignore interrupt - restore AX and return 
POP AX 
IRET 
BREAK: 
CALL CRLF 
JMP COMMAND 
REGTAB: 
DB “AXBXCXDXSPBPSIDIDSESSSCSIPPC" 
REGDIF: EQU AXSAVE~REGTAB 


3Flags are ordered to correspond with the bits of the flag 
sregister, most significant bit first, zero if bit is not 
sa flag. First 16 entries are for bit set, second 16 for 
sbit reset. 


FLAGTAB: 
DW 0 
DW 0 
DW 0 
DW 0 
DB "oy" 
DB "DN" 
DB NET w 
DW 0 
DB "NG" 
DB "ZR" 
DW 0 
DB tact 
DW 0 
DB "ppt 
DW 0 
DB toy 
DW 0 
DW 0 
DW 0 
DW 0 
DB Myytt 
DB "yp" 
DB "pr" 


0721 
0723 
0725 
0727 
0729 
0728 
072D 
072F 
0731 
0733 
0733 
0733 
0733 
0733 
0733 
0733 
0733 
0733 
0733 
0734 
0735 
0735 
0735 
0735 
0735 
0735 
0736 
073A 
073A 
073A 
073B 
073¢ 
073¢ 
073¢ 
073¢ 
073¢ 
073¢ 
073D 
0741 
0741 
0741 
0741 
0741 
0741 
0741 
0741 
0741 
0741 
0741 
0742 
0748 
0748 
0748 
0748 
0749 
074B 
074B 
074C 
074¢ 
074¢ 
074¢ 
074¢ 
074¢ 
074¢ 
074¢ 
074¢ 
074¢ 
074D 
0751 


01 
19 


04 
10 02 OF FD 


ol 
19 


04 
18 01 OB FD 


06 
63 0B 07 00 06 00 


02 
70 05 


00 


04 

B7 77 CE 37 

OD OA OA 53 43 50 
20 38 30 38 36 20 


DW 0 

DB “py, w 

DB "Nz" 

DW 0 : 

DB "Na" 

DW 0 i 
DB po " . ; ! 
DW 0 

DB "nc" 


sInitialization table. First byte of each entry is no. , 
sof bytes to output to the corresponding port. That 
smany initialization bytes follow. 


INLTTABLE? 
sPort BASE+O -— Master 8259A. Intialization Command Word (ICW) 
sOne sets level-triggered mode, multiple 8259As, require 
sIcw4. 
DB 1 
DB 19H 
3Port BASE+1 - Master 8259A. ICW2 sets vector base to 10H 
3ICW3 sets a slave on interrupt input 1; ICW4 sets buffered \ 
smode, as a master, with Automatic End of Interrupt, 8086 
svector; Operation Command Word (OCW) One sets interrupt 
smask to enable line 1 (slave 8259A) only. 
DB 4 
DB 10H, 2, OFH, OFDH 
sPort BASE+2 - Slave 8259A. ICW1 sets level-triggered mode, 
smultiple 8259As, require ICW4. 
DB 1 
DB 19H 
sPort BASE+3 - Slave 8259A. ICW2 sets vector base to 18H 
3ICW3 sets slave address as 1; ICW4 sets buffered mode, 
sas slave, with Automatic End of Interrupt (which doesn’t 
swork in slaves), 8086 vector; OCWl sets interrupt mask 
$to enable line 1 (serial receive) only. 
DB 4 
DB 18H, 1, OBH, OFDH 
sPort Baset4 - 9513 Data. 9513 has previously been set 
sup for Counter 5 mode register with auto increment. Thus 
smode is set to OB63H, which is no gating, count source is 
3Fl (4 MHz), reload from load or hold, count down repetitively 
sin binary, with output toggle. Load register is set to 
30007H, and Hold register is set to 0006H. Thus we 
salternately divide by 7 and 6, which is divided by 2 by 
sthe output toggle, thus providing a square wave of 
34 MHz/13 = 307.7 kHz, which divided by 16 in the 8251A 
sprovides 19,230 baud (0.16% high). 
DB 6 
DB 63H, OBH,7,0,6,0 
3Port BASE+5 - 9513 Control. Load and arm counter 5, 
s;enabling baud rate generation. Then select counter 
35 mode register, in casé baud rate wasn’t right. 


DB 2 
DB 70H, 5 

sPort BASE+6 - 8251A Data. No initialization to this port. 
DB 0 


3Port BASE+7 - 8251A Control. Since it is not possible to 
s;know whether the 8251A next expects a Mode Instruction or 
$a Command Instruction, a dummy byte is sent which could 
3safely be interpreted as either but guarantees it is now 
sexpecting a Command. The command sent is Internal Reset 
s;which causes it to start expecting a mode. The mode sent 
sis for 2 stop bits, no parity, 8 data bits, 16X clock. 
3This is followed by the command to error reset, enable 
stransmitter and receiver, set RTS and DTR to +12V. 


DB 4 : 
DB 0B7H, 77H, OCEH, 37H 
HEADER: DM 13,10,10,"SCP 8086 Monitor 1.5",13,10 
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3 
q 
| 
a 


poununamasitae 


fester 


i 
i 
{ 
i 
{ 





076A 
0768 


0773 
0776 
0776 
0776 
0776 
0776 
0776 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0779 
0773 
077D 
077F 
0781 
0783 
0785 
0785 
0787 
0789 
0789 
078B 
078D 
078F 
0792 
0794 
0796 
0799 
079B 
079D 
079D 
079F 
O7Al 
07A3 
07A5 
O7A7 
07A9 
O7AB 
O7AD 
07B0 
07B2 
07B4 
07B6 
07B8 
O7BA 
O7BA 
07BC 
O7BE 
07c0 
07¢2 
07¢3 
07¢5 
07¢5 
07¢7 
07¢9 


4D 
72 
8A 


20 


OD 
08 


57 


6F 
20 


45 
8A 
20 


30 
c8 
FA 
F2 
G2 
34 
00 


30 


34 
c8 
FA 
30 
98 
DCG 


32 
80 
c2 


34 
8C 


34 
c8 
OB 
33 


F5 
34 


c8 
FA 


6E 69 74 6F 
31 2E 35 OD 


72 72 6F 72 


88 


10 


02 


00 


WSTAT: 


SYNERR: DB 
ERRMES: DM 


BACMES; DM 


one 


" Error",13,10 


8,32,8 


3sDisk boot. Select one of the following routines by 
3setting the equates at the start of this program, 


BOOT: 
PUSH 


DI 


f RAKKAARARRARKEKRRARAR RRR AKER RRER RR ERR RRR ERIK K 


$Boot for Cromemco 4FDC disk controller with either 
slarge or small disks. Loads track 0, sector 1 into LOAD, 


IF 
DISK: ~“EQU 


MOV 
OUT 
MOV 
OUT 
MOV 
OUT 
MOV 
RETRY: 
MOV 
OUTB 
READY: 
INB 
ROR 
JC 
XOR 
MOV 
OUTB 
MOV 
MOV 
OUTB 
HOME : 
INB 
ROR 
JNC 
INB 


JINZ 
MOV 
OUTB 
MOV 
MOV 
OR 
OUTB 
MOV 
OUTB 
READ: 

INB 
ROR 
JC 
INB 
STOB 
LOOP 


INB 
ROR 
JING 


CROMEMCO4FDG 


' 30H 


sind 


2 sReset 4FDC serial 1/0 
AL, 84H 

0 sand set for 300 baud 
AL, 7FH 

4 

DL, 21H 


AL, ODOH 
DISK 


DISK 
AL 
READY 
DL, 10H 
AL ,DL 
DISK+4 
DI,LOAD 
AL, 12 
DISK 


DISK+4 
AL 
HOME 
DISK 
AL, 98H ° 
RETRY 
AL, 1 
DISK+2 
CX, 80H 
AL, DL 
AL, 80H 
DISK+4 
AL, 8CH 
DISK 


DISK+4 
AL 
DONE 
DISK+3 


READ 
DISK+4 


AL 
WSTAT 


= 3 


07CB 
07CB 
07¢cD 
O07CF 
O7D1 
O7D1L 
07D1 
07D1 
07D1 
O7D1 C7 06 B2 01 00 00 
07D7 C7 06 B4 01 00 02 
O7DD SF 

O7DE E9 89 FE 

O7E1 


E4 30 
24 9C 
75 B4 


Error Count = 0 


0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 1E 

0778 B8 B8 FE 

0773 8E D8 

077D AO O01 00 

0780 B9 14 00 

0783 

0783 E8 19 00 

0786 E2 FB 

0788 

0788 F6 06 1c 00.01 
078D 75 1B 

078F AO 09 00 

0792 D4 OA 

0794 AO 08 00 

0797 E8 05 00 

079A E8 02 00 

079D EB E9 

079F 

079F AO 14 00 

O7A2 

O7A2 F6 06 
O7A7 74 F9 
07A9 C3 
O7AA 

O7AA BF 00 02 

O7AD B9 18 O1 

07B0 BB 50 00 

07B3 

07B3 H8 E9 FF 

07B6 F6 06 30 00 OF 
O7BB 75 F6 
07BD 

O7BD F6 06 
07C2 El F9 


10 00 86 


10 00 04 


DONE: 
INB 
AND 
JNZ 
ENDIF 


POP 
ENDIF 


DISK 
AL, 9CH 
RETRY 


DS 


sSuccessful read 


MOV 
MOV 
POP 
JMP 


(CSSAVE] ,0 
[IPSAVE] , LOAD 
DI 

Go 


fRAKAKAKKAKKARKAAKKKAKERK RAK RERARR RRR RR RE RRRRARERE 


;Boot for North Star disk, single density. 
sLoads track 0, sector 0 into address LOAD 
3;Bug in North Star boot fixed 5-26-81, 


IF. 


EQU 
EQU 
EQU 
EQU 
SEC: EQU 
STPOUT: EQU 
RD: EQU 
BST: EQU 


PUSH 
MOV 
MOV 
MOV 
MOV 
MOTOR: 
CALL 
LOOP 


. CHKTRK¢ 


TEST 
JINZ 
MOV 
AAM 
MOV 
CALL 
CALL 
JP 
SECTOR: 
MOV 
SECLP: 
TEST 
JZ 
RET 
ONTRACK: 
MOV 
MOV 
MOV 
GETSEC: 
CALL 
TEST 
JNZ 
GETSYNC: 
TEST 
LOOPZ 


NORTHSTARSD 


command equates 


bE 
9 
8 
10H 
14H 
1CH 
40H 
20H 


DS 
AX, OFEB8H 
DS, AX 

AL, [SEL] 
CX, 20 


SECTOR 
MOTOR 


B,[STPOUT],1 
ONTRACK 
AL, [STP1] 


AL, [STP2] 


SECTOR 
SECTOR 


CHKTRK 
AL, [SEC] ; Reset sector flag. 


B, [NOP], 80H ; 
SECLP 


Wait for sector flag. 


DI, LOAD 
CX, 280 
BX, RD+NOP 


SECTOR 
B,{BST+NOP] ,OFH ; 
GETSEC 


Test for sector zero. 


B, [NOP] ,4 
GETSYNC 


= 90e= 





| 
| 


0704 74 EB4 JZ ONTRACK 
































07C6 B9 00 O1 MOV CX, 100H 
07¢c9 32 D2 XOR DL,DL 
07CB D5 OA AAD 
07CD READ: 
O7CD 8A 07 MOV AL, [BX] 
oc O7CF AA STOB sUses ES 
| 07D0 32 DO XOR DL, AL 
‘ 07D2 DO C2 ROL DL 
07D4 D5 OA AAD 
O7D6 E2 F5 LOOP READ 
07D8 BA 07 . MOV AL, [BX] 
O7DA 3A C2 CMP AL, DL 
o7DC 75 CC JNZ ONTRACK 
O7DE 1F POP DS 
O7DF ENDIF 
O7DF ;Successful read 
O7DF C7 06 B2 01 00 00 MOV [CSSAVE] ,0 
O7E5 C7 06 B4 O1 00 02 MOV [IPSAVE] , LOAD 
O7EB 5F POP DI 
O7EC E9 7B FE : JMP GO 
O7EF 
| Error Count = 0 
‘| 
; 0777 ; f RIK AARA KARI RKRR ARR IKK RRR RR RIK KIRK AIK RE HR 
i | 0777 
/ | 0777 sBoot for Tarbell disk controllers. Load track 0, 
0777 ssector 1 into LOAD. ; 
0777 
| 0777 IF TARBELL 
0777 
. 0777 DISK:  EQU 78H 
0777 
: 0777 EB 09 JP RETRY 
| 0779 DCOM: 
0779 E6 78 OUTB DISK 
077B BO 32 MOV AL, 50 
077D HOLD: ; 
| | 077D FE C8 DEC AL 
: 077F 75 FC JNZ HOLD 
0781 C3 RET 
(| 0782 
| | 0782 RETRY: 
ae 0782 BO DO MOV AL, ODOH 
0784 E8 F2 FF CALL DCOM 
0787 READY: 
0787 E4 78 INB DISK 
0789 DO C8 ROR AL 
078B 72 FA JC READY 
078D BF 00 02 MOV DI, LOAD 
0790 BO OE MOV AL,OEH j;Home command @ 10ms/track 
0792 E8 £4 FF CALL DCOM 
0795 E4 7C INB DISK+4 
0797 E4 78 INB DISK 
| 0799 24 98 AND AL, 98H 
079B 75 ES JINZ RETRY 
079D BO Ol MOV AL, 1 
O79F E6 7A OUTB DISK+2 
07Al B9 80 00 MOV CX, 80H 
07A4 BO 8C MOV AL, 8CH 
07A6 E8 DO FF CALL DCOM 
07A9 READ; 
07A9 E4 7C INB DISK+4 
O7AB DO CO ROL AL 
O7AD 73 OB JNC DONE 
O7AF E4 7B INB DISK+3 
i] 07B1 AA STOB 
/ ! 07B2 E2 F5 LOOP READ 


| is ks ee 


i 
i ok 
é 
De 
Uf 


07B4 WSTAT; 








O7B4 E4 7¢ INB DISK+4 

07B6 DO CO ROL AL 

07B8 72 FA Jc WSTAT 

O7BA DONE: 

O7BA E4 78 INB DISK 

O7BG 24 9C AND AL, 9CH i] 
O7BE 75 C2 JNZ RETRY ie 
07C0 sSuccessful read 

0760 C7 06 B2 01 00 00 .. MOV [CSSAVE]} ,0 

07C6 C7 06 B4 O01 00 02 MOV [IPSAVE] , LOAD 

07CC 5F : POP DI 

07CD E9 9A FE JMP GO 

07D0 

Error Count = 0 

0777 PEUCEoLoC COLI ELLE TLE PEELE EEE E SE PE rer oo 
0777 

0777 IF OTHER 

0777 

0777 3;User may insert customized disk boot here. All 

0777 sregisters are available, stack pointer is valid 

0777 sand interrupts are enabled. Stqck should be at 

0777 ssame level on falli-through to code below. Last 

0777 saddress available is O7DF hex. 

0777 

0777 ORG 7EOH ;Simulate boot of maximum length 4 
07E0 i. 
07E0 ENDIF i 
07E0 

Q7E0 pA RR RIK IIR IR RHR RRR RR RR IIR TRI IIR RRR RRR 
07E0 
07E0 ;Successful read i 
O7EO C7 06 B2 01 00 00 MOV [CSSAVE] ,0 

O7E6 C7 06 B4 O01 00 02 MOV [IPSAVE] , LOAD i} 
O7EC 5F POP DI | 
O7ED E9 7A FE JMP GO : 
07FO 

Error Count = 0 





Sey ee 





j r aR oa] oa a aoa 3 : 7 ; 





















